inherited fmUchebKurs: TfmUchebKurs
  Left = 386
  Top = 181
  Width = 1249
  Height = 890
  Caption = 'fmUchebKurs'
  Constraints.MinHeight = 890
  Constraints.MinWidth = 1249
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 836
    Width = 1241
  end
  inherited Panel1: TPanel
    Width = 1241
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1071
    end
    inherited BitBtn2: TBitBtn
      Left = 1159
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 81
    Width = 1241
    Height = 388
    Align = alTop
    TabOrder = 2
    object GroupBox4: TGroupBox
      Left = 1
      Top = 1
      Width = 448
      Height = 386
      Align = alLeft
      Caption = #1059#1095#1077#1073#1085#1099#1077' '#1082#1091#1088#1089#1099':'
      TabOrder = 0
      object dbgUchebKurs: TcxGrid
        Left = 2
        Top = 41
        Width = 444
        Height = 343
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvUchebKurs: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          OnCellDblClick = tvUchebKursCellDblClick
          DataController.DataSource = dsUchebKurs
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = ',0'
              Kind = skSum
              FieldName = 'KOLTIME'
              Column = tvUchebKursKOLTIME
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvUchebKursSDNAME: TcxGridDBColumn
            Caption = #1055#1088#1077#1076#1084#1077#1090
            DataBinding.FieldName = 'SDNAME'
            Options.Filtering = False
            Width = 59
          end
          object tvUchebKursCUCHEBKURS: TcxGridDBColumn
            Caption = #1059#1095#1077#1073#1085#1099#1081' '#1050#1091#1088#1089
            DataBinding.FieldName = 'CUCHEBKURS'
            Options.Filtering = False
            Width = 122
          end
          object tvUchebKursCUCHEBKURS_ENG: TcxGridDBColumn
            Caption = #1059#1095#1077#1073#1085#1099#1081' '#1050#1091#1088#1089'_ENG'
            DataBinding.FieldName = 'CUCHEBKURS_ENG'
            Options.Filtering = False
            Width = 145
          end
          object tvUchebKursKOLTIME: TcxGridDBColumn
            Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1095#1072#1089#1086#1074
            DataBinding.FieldName = 'KOLTIME'
            Options.Filtering = False
            Width = 102
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = tvUchebKurs
        end
      end
      object dxBarDockControl1: TdxBarDockControl
        Left = 2
        Top = 15
        Width = 444
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object GroupBox1: TGroupBox
      Left = 457
      Top = 1
      Width = 416
      Height = 386
      Align = alLeft
      Caption = #1058#1077#1084#1099' '#1091#1095#1077#1073#1085#1086#1075#1086' '#1082#1091#1088#1089#1072':'
      TabOrder = 1
      object dbgTemaUK: TcxGrid
        Left = 2
        Top = 41
        Width = 412
        Height = 343
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvTemaUK: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          OnCellDblClick = tvTemaUKCellDblClick
          DataController.DataSource = dsTemaUK
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = ',0'
              Kind = skSum
              FieldName = 'KOLTIME'
              Column = tvTemaUKKOLTIME
            end>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvTemaUKTEMA: TcxGridDBColumn
            Caption = #1058#1077#1084#1072
            DataBinding.FieldName = 'TEMA'
            Options.Filtering = False
            Width = 47
          end
          object tvTemaUKTEMA_ENG: TcxGridDBColumn
            Caption = #1058#1077#1084#1072'_ENG'
            DataBinding.FieldName = 'TEMA_ENG'
            Options.Filtering = False
            Width = 253
          end
          object tvTemaUKKOLTIME: TcxGridDBColumn
            Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1095#1072#1089#1086#1074
            DataBinding.FieldName = 'KOLTIME'
            Options.Filtering = False
            Width = 96
          end
        end
        object cxGridLevel3: TcxGridLevel
          GridView = tvTemaUK
        end
      end
      object dxBarDockControl2: TdxBarDockControl
        Left = 2
        Top = 15
        Width = 412
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object GroupBox3: TGroupBox
      Left = 881
      Top = 1
      Width = 359
      Height = 386
      Align = alClient
      Caption = #1059#1088#1086#1082#1080':'
      TabOrder = 2
      object dbgPodtemaUK: TcxGrid
        Left = 2
        Top = 41
        Width = 355
        Height = 343
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvPodtemaUK: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          OnCellDblClick = tvPodtemaUKCellDblClick
          DataController.DataSource = dsPodtemaUK
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = ',0'
              Kind = skSum
              FieldName = 'KOLTIME'
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.OnCompare = tvPodtemaUKDataControllerCompare
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvPodtemaUKNUMUK: TcxGridDBColumn
            Caption = #8470' '#1091#1088#1086#1082#1072
            DataBinding.FieldName = 'NUMUK'
            Options.Filtering = False
          end
          object tvPodtemaUKNUMTEMA: TcxGridDBColumn
            Caption = #8470' '#1091#1088#1086#1082#1072' '#1074' '#1090#1077#1084#1077
            DataBinding.FieldName = 'NUMTEMA'
            Options.Filtering = False
          end
          object tvPodtemaUKPODTEMA: TcxGridDBColumn
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1091#1088#1086#1082#1072
            DataBinding.FieldName = 'PODTEMA'
            Options.Filtering = False
            Width = 160
          end
          object tvPodtemaUKPODTEMA_ENG: TcxGridDBColumn
            Caption = #1055#1086#1076#1090#1077#1084#1072'_ENG'
            DataBinding.FieldName = 'PODTEMA_ENG'
            Options.Filtering = False
            Width = 120
          end
          object tvPodtemaUKCONTROL: TcxGridDBColumn
            Caption = #1050#1086#1085#1090#1088#1086#1083#1100
            DataBinding.FieldName = 'CONTROL'
            Width = 40
          end
        end
        object cxGridLevel4: TcxGridLevel
          GridView = tvPodtemaUK
        end
      end
      object dxBarDockControl3: TdxBarDockControl
        Left = 2
        Top = 15
        Width = 355
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object cxSplitter1: TcxSplitter
      Left = 449
      Top = 1
      Width = 8
      Height = 386
      HotZoneClassName = 'TcxMediaPlayer9Style'
      InvertDirection = True
      Control = GroupBox4
    end
    object cxSplitter2: TcxSplitter
      Left = 873
      Top = 1
      Width = 8
      Height = 386
      HotZoneClassName = 'TcxMediaPlayer9Style'
      Control = GroupBox1
    end
  end
  object cxSplitter3: TcxSplitter [3]
    Left = 0
    Top = 469
    Width = 1241
    Height = 8
    HotZoneClassName = 'TcxMediaPlayer9Style'
    AlignSplitter = salTop
    InvertDirection = True
    Control = Panel2
  end
  object Panel3: TPanel [4]
    Left = 0
    Top = 477
    Width = 1241
    Height = 359
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 4
    object cxGroupBox1: TcxGroupBox
      Left = 625
      Top = 1
      Align = alClient
      Caption = #1059#1095#1077#1073#1085#1099#1077' '#1079#1072#1076#1072#1095#1080':'
      TabOrder = 0
      Height = 357
      Width = 615
      object dbgLearntask: TcxGrid
        Left = 2
        Top = 44
        Width = 611
        Height = 311
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvLearntask: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          OnCellDblClick = tvLearntaskCellDblClick
          DataController.DataSource = dsLearntask
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvLearntaskZN: TcxGridDBColumn
            Caption = #1047#1085#1072#1090#1100'/'#1059#1084#1077#1090#1100
            DataBinding.FieldName = 'ZN'
            Options.Filtering = False
            Width = 41
          end
          object tvLearntaskLEARNTASK: TcxGridDBColumn
            Caption = #1047#1072#1076#1072#1095#1072
            DataBinding.FieldName = 'LEARNTASK'
            Options.Filtering = False
            Width = 89
          end
          object tvLearntaskLEARNTASK_ENG: TcxGridDBColumn
            Caption = #1047#1072#1076#1072#1095#1072'_ENG'
            DataBinding.FieldName = 'LEARNTASK_ENG'
            Options.Filtering = False
            Width = 83
          end
          object tvLearntaskEEE: TcxGridDBColumn
            Caption = #1059#1088#1086#1074#1077#1085#1100' '#1089#1083#1086#1078#1085#1086#1089#1090#1080
            DataBinding.FieldName = 'EEE'
            Options.Filtering = False
            Width = 38
          end
          object tvLearntaskLCONTROL: TcxGridDBColumn
            Caption = #1050#1086#1085#1090#1088#1086#1083#1100
            DataBinding.FieldName = 'LCONTROL'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Options.Filtering = False
            Width = 51
          end
          object tvLearntaskLCOMMENT: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'LCOMMENT'
            Options.Filtering = False
            Width = 146
          end
          object tvLearntaskLCOMMENT_ENG: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081'_ENG'
            DataBinding.FieldName = 'LCOMMENT_ENG'
            Options.Filtering = False
            Width = 147
          end
        end
        object cxGridLevel5: TcxGridLevel
          GridView = tvLearntask
        end
      end
      object dxBarDockControl5: TdxBarDockControl
        Left = 2
        Top = 18
        Width = 611
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object cxSplitter4: TcxSplitter
      Left = 617
      Top = 1
      Width = 8
      Height = 357
      HotZoneClassName = 'TcxMediaPlayer9Style'
      InvertDirection = True
      Control = cxGroupBox2
    end
    object cxGroupBox2: TcxGroupBox
      Left = 1
      Top = 1
      Align = alLeft
      Caption = #1069#1083#1077#1084#1077#1085#1090#1099' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103' '#1091#1088#1086#1082#1072':'
      TabOrder = 2
      Height = 357
      Width = 616
      object dbgElementp: TcxGrid
        Left = 2
        Top = 44
        Width = 612
        Height = 311
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvElementp: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.Position = fpTop
          OnCellDblClick = tvElementpCellDblClick
          DataController.DataSource = dsElementp
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.CellHints = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 10
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Preview.Visible = True
          Styles.IncSearch = DMInv.cxKrasniyText
          Styles.Selection = DMInv.cxJoltiyFon
          Styles.Header = DMInv.cxSiniyText
          object tvElementpELEMENTP: TcxGridDBColumn
            Caption = #1069#1083#1077#1084#1077#1085#1090' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103' '#1087#1086#1076#1090#1077#1084#1099' ('#1059#1088#1086#1082#1072')'
            DataBinding.FieldName = 'ELEMENTP'
            Options.Filtering = False
            Width = 57
          end
          object tvElementpELEMENTP_ENG: TcxGridDBColumn
            Caption = #1069#1083#1077#1084#1077#1085#1090' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103' '#1087#1086#1076#1090#1077#1084#1099' ('#1059#1088#1086#1082#1072')_ENG'
            DataBinding.FieldName = 'ELEMENTP_ENG'
            Options.Filtering = False
            Width = 94
          end
          object tvElementpISTOCHNIK: TcxGridDBColumn
            Caption = #1048#1089#1090#1086#1095#1085#1080#1082
            DataBinding.FieldName = 'ISTOCHNIK'
            Options.Filtering = False
            Width = 50
          end
          object tvElementpEEE: TcxGridDBColumn
            Caption = #1059#1088#1086#1074#1077#1085#1100' '#1089#1083#1086#1078#1085#1086#1089#1090#1080
            DataBinding.FieldName = 'EEE'
            Options.Filtering = False
            Width = 27
          end
          object tvElementpPAGEIN: TcxGridDBColumn
            Caption = #1057#1090#1088#1072#1085#1080#1094#1072' '#1074' '#1080#1089#1090#1086#1095#1085#1080#1082#1077
            DataBinding.FieldName = 'PAGEIN'
            Options.Filtering = False
            Width = 40
          end
          object tvElementpECONTROL: TcxGridDBColumn
            Caption = #1050#1086#1085#1090#1088#1086#1083#1100
            DataBinding.FieldName = 'ECONTROL'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.NullStyle = nssUnchecked
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Options.Filtering = False
            Width = 64
          end
          object tvElementpECOMMENT: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'ECOMMENT'
            Options.Filtering = False
            Width = 87
          end
          object tvElementpECOMMENT_ENG: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081'_ENG'
            DataBinding.FieldName = 'ECOMMENT_ENG'
            Options.Filtering = False
            Width = 177
          end
        end
        object cxGridLevel2: TcxGridLevel
          GridView = tvElementp
        end
      end
      object dxBarDockControl4: TdxBarDockControl
        Left = 2
        Top = 18
        Width = 612
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
  end
  object Panel4: TPanel [5]
    Left = 0
    Top = 45
    Width = 1241
    Height = 36
    Align = alTop
    TabOrder = 9
    object cxButton1: TcxButton
      Tag = 12
      Left = 7
      Top = 6
      Width = 154
      Height = 23
      Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1080#1089#1090#1086#1095#1085#1080#1082#1086#1074
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = cxButton1Click
      LookAndFeel.SkinName = 'Blue'
    end
  end
  object dsUchebKurs: TDataSource
    DataSet = qUchebKurs
    Left = 312
    Top = 208
  end
  object qUchebKurs: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select uk.*, sd.sdname,'
      '  (select cast(count(*) as INTEGER)'
      '   from temauk t'
      
        '   join podtemauk pt on pt.idtemauk = t.idtemauk and pt.pisdelet' +
        'e is null'
      
        '   where  t.iduchebkurs = uk.iduchebkurs and t.tisdelete is null' +
        ') as "KOLTIME"'
      'from UchebKurs uk'
      '    left join sys_dic sd on sd.sdid=uk.idpredmet'
      'where uk.uisdelete is null'
      'order by uk.cuchebkurs')
    UpdateObject = quUchebKurs
    GeneratorField.Field = 'SDID'
    Left = 344
    Top = 208
    object qUchebKursIDUCHEBKURS: TIntegerField
      FieldName = 'IDUCHEBKURS'
      Origin = '"UCHEBKURS"."IDUCHEBKURS"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qUchebKursIDPREDMET: TIntegerField
      FieldName = 'IDPREDMET'
      Origin = '"UCHEBKURS"."IDPREDMET"'
    end
    object qUchebKursCUCHEBKURS: TIBStringField
      FieldName = 'CUCHEBKURS'
      Origin = '"UCHEBKURS"."CUCHEBKURS"'
      Size = 255
    end
    object qUchebKursKOLTIME: TIntegerField
      FieldName = 'KOLTIME'
    end
    object qUchebKursUTIMEENTER: TDateTimeField
      FieldName = 'UTIMEENTER'
      Origin = '"UCHEBKURS"."UTIMEENTER"'
    end
    object qUchebKursUTIMEEDIT: TDateTimeField
      FieldName = 'UTIMEEDIT'
      Origin = '"UCHEBKURS"."UTIMEEDIT"'
    end
    object qUchebKursUUSERENTER: TIBStringField
      FieldName = 'UUSERENTER'
      Origin = '"UCHEBKURS"."UUSERENTER"'
      Size = 80
    end
    object qUchebKursUUSEREDIT: TIBStringField
      FieldName = 'UUSEREDIT'
      Origin = '"UCHEBKURS"."UUSEREDIT"'
      Size = 80
    end
    object qUchebKursUISDELETE: TIntegerField
      FieldName = 'UISDELETE'
      Origin = '"UCHEBKURS"."UISDELETE"'
    end
    object qUchebKursSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qUchebKursCUCHEBKURS_ENG: TIBStringField
      FieldName = 'CUCHEBKURS_ENG'
      Origin = '"UCHEBKURS"."CUCHEBKURS_ENG"'
      Size = 255
    end
  end
  object quUchebKurs: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDUCHEBKURS,'
      '  IDPREDMET,'
      '  CUCHEBKURS,'
      '  UTIMEENTER,'
      '  UTIMEEDIT,'
      '  UUSERENTER,'
      '  UUSEREDIT,'
      '  UISDELETE,'
      '  SDNAME,'
      '  (select count(*)'
      '   from temauk t'
      
        '   join podtemauk pt on pt.idtemauk = t.idtemauk and pt.pisdelet' +
        'e is null'
      
        '   where  t.iduchebkurs = :IDUCHEBKURS and t.tisdelete is null) ' +
        'as "KOLTIME"'
      'from UchebKurs '
      'where'
      '  IDUCHEBKURS = :IDUCHEBKURS ')
    ModifySQL.Strings = (
      'update UchebKurs'
      'set'
      '  CUCHEBKURS = :CUCHEBKURS,'
      '  IDPREDMET = :IDPREDMET,'
      '  IDUCHEBKURS = :IDUCHEBKURS,'
      '  SDNAME = :SDNAME,'
      '  UISDELETE = :UISDELETE,'
      '  UTIMEEDIT = :UTIMEEDIT,'
      '  UTIMEENTER = :UTIMEENTER,'
      '  UUSEREDIT = :UUSEREDIT,'
      '  UUSERENTER = :UUSERENTER'
      'where'
      '  IDUCHEBKURS = :OLD_IDUCHEBKURS ')
    InsertSQL.Strings = (
      'insert into UchebKurs'
      
        '  (CUCHEBKURS, IDPREDMET, IDUCHEBKURS, SDNAME, UISDELETE, UTIMEE' +
        'DIT, '
      '   UTIMEENTER, UUSEREDIT, UUSERENTER)'
      'values'
      '  (:CUCHEBKURS, :IDPREDMET, :IDUCHEBKURS, :SDNAME, :UISDELETE, '
      '   :UTIMEEDIT, :UTIMEENTER, :UUSEREDIT, :UUSERENTER)')
    DeleteSQL.Strings = (
      'delete from UchebKurs'
      'where'
      '  IDUCHEBKURS = :OLD_IDUCHEBKURS ')
    Left = 376
    Top = 208
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 34
    Top = 143
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'm1'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 205
      FloatTop = 165
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton1'
        end
        item
          Visible = True
          ItemName = 'dxBarButton2'
        end
        item
          Visible = True
          ItemName = 'dxBarButton3'
        end
        item
          Visible = True
          ItemName = 'dxBarButton17'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl2
      DockedDockControl = dxBarDockControl2
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 231
      FloatTop = 277
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton5'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end
        item
          Visible = True
          ItemName = 'dxBarButton7'
        end
        item
          Visible = True
          ItemName = 'dxBarButton18'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar3: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl3
      DockedDockControl = dxBarDockControl3
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 1299
      FloatTop = 137
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton8'
        end
        item
          Visible = True
          ItemName = 'dxBarButton9'
        end
        item
          Visible = True
          ItemName = 'dxBarButton10'
        end
        item
          Visible = True
          ItemName = 'dxBarButton19'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar4: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 3'
      CaptionButtons = <>
      DockControl = dxBarDockControl4
      DockedDockControl = dxBarDockControl4
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 247
      FloatTop = 117
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton11'
        end
        item
          Visible = True
          ItemName = 'dxBarButton12'
        end
        item
          Visible = True
          ItemName = 'dxBarButton13'
        end
        item
          Visible = True
          ItemName = 'dxBarButton21'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar5: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 4'
      CaptionButtons = <>
      DockControl = dxBarDockControl5
      DockedDockControl = dxBarDockControl5
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 247
      FloatTop = 117
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton14'
        end
        item
          Visible = True
          ItemName = 'dxBarButton15'
        end
        item
          Visible = True
          ItemName = 'dxBarButton16'
        end
        item
          Visible = True
          ItemName = 'dxBarButton20'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton1Click
    end
    object dxBarButton2: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton2Click
    end
    object dxBarButton3: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton3Click
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1096#1072#1073#1083#1086#1085
      Visible = ivNever
      ImageIndex = 37
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton5Click
    end
    object dxBarButton6: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton6Click
    end
    object dxBarButton7: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton7Click
    end
    object dxBarButton8: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton8Click
    end
    object dxBarButton9: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton9Click
    end
    object dxBarButton10: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton10Click
    end
    object dxBarButton11: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton11Click
    end
    object dxBarButton12: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton12Click
    end
    object dxBarButton13: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton13Click
    end
    object dxBarButton14: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton14Click
    end
    object dxBarButton15: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton15Click
    end
    object dxBarButton16: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton16Click
    end
    object dxBarButton17: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton17Click
    end
    object dxBarButton18: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton18Click
    end
    object dxBarButton19: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton19Click
    end
    object dxBarButton20: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton20Click
    end
    object dxBarButton21: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton21Click
    end
  end
  object dsTemaUK: TDataSource
    DataSet = qTemaUK
    Left = 576
    Top = 208
  end
  object qTemaUK: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsUchebKurs
    SQL.Strings = (
      'select t.*,'
      '  (select cast(count(*) as INTEGER)'
      '   from podtemauk pt'
      
        '   where pt.idtemauk = t.idtemauk and pt.pisdelete is null) as "' +
        'KOLTIME"'
      'from TemaUK t'
      'where t.tisdelete is null and t.iduchebkurs = :iduchebkurs'
      'order by t.idtemauk')
    UpdateObject = quTemaUK
    GeneratorField.Field = 'SDID'
    Left = 608
    Top = 208
    ParamData = <
      item
        DataType = ftInteger
        Name = 'IDUCHEBKURS'
        ParamType = ptUnknown
        Size = 4
      end>
    object qTemaUKIDTEMAUK: TIntegerField
      FieldName = 'IDTEMAUK'
      Origin = '"TEMAUK"."IDTEMAUK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTemaUKIDUCHEBKURS: TIntegerField
      FieldName = 'IDUCHEBKURS'
      Origin = '"TEMAUK"."IDUCHEBKURS"'
    end
    object qTemaUKTEMA: TIBStringField
      FieldName = 'TEMA'
      Origin = '"TEMAUK"."TEMA"'
      Size = 255
    end
    object qTemaUKTEMA_ENG: TIBStringField
      FieldName = 'TEMA_ENG'
      Origin = '"TEMAUK"."TEMA_ENG"'
      Size = 255
    end
    object qTemaUKKOLTIME: TIntegerField
      FieldName = 'KOLTIME'
    end
    object qTemaUKTTIMEENTER: TDateTimeField
      FieldName = 'TTIMEENTER'
      Origin = '"TEMAUK"."TTIMEENTER"'
    end
    object qTemaUKTTIMEEDIT: TDateTimeField
      FieldName = 'TTIMEEDIT'
      Origin = '"TEMAUK"."TTIMEEDIT"'
    end
    object qTemaUKTUSERENTER: TIBStringField
      FieldName = 'TUSERENTER'
      Origin = '"TEMAUK"."TUSERENTER"'
      Size = 80
    end
    object qTemaUKTUSEREDIT: TIBStringField
      FieldName = 'TUSEREDIT'
      Origin = '"TEMAUK"."TUSEREDIT"'
      Size = 80
    end
    object qTemaUKTISDELETE: TIntegerField
      FieldName = 'TISDELETE'
      Origin = '"TEMAUK"."TISDELETE"'
    end
  end
  object quTemaUK: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDTEMAUK,'
      '  IDUCHEBKURS,'
      '  TEMA,'
      '  TTIMEENTER,'
      '  TTIMEEDIT,'
      '  TUSERENTER,'
      '  TUSEREDIT,'
      '  TISDELETE,'
      '  (select count(*)'
      '   from podtemauk pt'
      
        '   where pt.idtemauk = :idtemauk and pt.pisdelete is null) as "K' +
        'OLTIME"'
      'from TemaUK '
      'where'
      '  IDTEMAUK = :IDTEMAUK')
    ModifySQL.Strings = (
      'update TemaUK'
      'set'
      '  IDTEMAUK = :IDTEMAUK,'
      '  IDUCHEBKURS = :IDUCHEBKURS,'
      '  TEMA = :TEMA,'
      '  TISDELETE = :TISDELETE,'
      '  TTIMEEDIT = :TTIMEEDIT,'
      '  TTIMEENTER = :TTIMEENTER,'
      '  TUSEREDIT = :TUSEREDIT,'
      '  TUSERENTER = :TUSERENTER'
      'where'
      '  IDTEMAUK = :OLD_IDTEMAUK')
    InsertSQL.Strings = (
      'insert into TemaUK'
      
        '  (IDTEMAUK, IDUCHEBKURS, TEMA, TISDELETE, TTIMEEDIT, TTIMEENTER' +
        ', '
      '   TUSEREDIT, TUSERENTER)'
      'values'
      
        '  (:IDTEMAUK, :IDUCHEBKURS, :TEMA, :TISDELETE, :TTIMEEDIT, :TTIM' +
        'EENTER, '
      '   :TUSEREDIT, :TUSERENTER)')
    DeleteSQL.Strings = (
      'delete from TemaUK'
      'where'
      '  IDTEMAUK = :OLD_IDTEMAUK')
    Left = 640
    Top = 208
  end
  object dsPodtemaUK: TDataSource
    DataSet = qPodtemaUK
    Left = 936
    Top = 176
  end
  object qPodtemaUK: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsTemaUK
    SQL.Strings = (
      'select p.*,mt.mtshort as "CONTROL"'
      'from PodtemaUK p'
      'left join cj_mark_type mt on p.controltype = mt.mtid'
      'where p.pisdelete is null and p.idtemauk = :idtemauk'
      'order by p.idpodtemauk')
    UpdateObject = quPodtemaUK
    GeneratorField.Field = 'SDID'
    Left = 968
    Top = 176
    ParamData = <
      item
        DataType = ftInteger
        Name = 'IDTEMAUK'
        ParamType = ptUnknown
        Size = 4
      end>
    object qPodtemaUKIDPODTEMAUK: TIntegerField
      FieldName = 'IDPODTEMAUK'
      Origin = '"PODTEMAUK"."IDPODTEMAUK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPodtemaUKIDTEMAUK: TIntegerField
      FieldName = 'IDTEMAUK'
      Origin = '"PODTEMAUK"."IDTEMAUK"'
    end
    object qPodtemaUKPODTEMA: TIBStringField
      FieldName = 'PODTEMA'
      Origin = '"PODTEMAUK"."PODTEMA"'
      Size = 255
    end
    object qPodtemaUKPODTEMA_ENG: TIBStringField
      FieldName = 'PODTEMA_ENG'
      Origin = '"PODTEMAUK"."PODTEMA_ENG"'
      Size = 255
    end
    object qPodtemaUKKOLTIME: TIntegerField
      FieldName = 'KOLTIME'
      Origin = '"PODTEMAUK"."KOLTIME"'
    end
    object qPodtemaUKPTIMEENTER: TDateTimeField
      FieldName = 'PTIMEENTER'
      Origin = '"PODTEMAUK"."PTIMEENTER"'
    end
    object qPodtemaUKPTIMEEDIT: TDateTimeField
      FieldName = 'PTIMEEDIT'
      Origin = '"PODTEMAUK"."PTIMEEDIT"'
    end
    object qPodtemaUKPUSERENTER: TIBStringField
      FieldName = 'PUSERENTER'
      Origin = '"PODTEMAUK"."PUSERENTER"'
      Size = 80
    end
    object qPodtemaUKPUSEREDIT: TIBStringField
      FieldName = 'PUSEREDIT'
      Origin = '"PODTEMAUK"."PUSEREDIT"'
      Size = 80
    end
    object qPodtemaUKPISDELETE: TIntegerField
      FieldName = 'PISDELETE'
      Origin = '"PODTEMAUK"."PISDELETE"'
    end
    object qPodtemaUKNUMUK: TIBStringField
      FieldName = 'NUMUK'
      Origin = '"PODTEMAUK"."NUMUK"'
      Size = 10
    end
    object qPodtemaUKNUMTEMA: TIBStringField
      FieldName = 'NUMTEMA'
      Origin = '"PODTEMAUK"."NUMTEMA"'
      Size = 10
    end
    object qPodtemaUKCONTROLTYPE: TIntegerField
      FieldName = 'CONTROLTYPE'
      Origin = '"PODTEMAUK"."CONTROLTYPE"'
    end
    object qPodtemaUKCONTROL: TStringField
      FieldName = 'CONTROL'
      Size = 250
    end
  end
  object quPodtemaUK: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDPODTEMAUK,'
      '  IDTEMAUK,'
      '  PODTEMA,'
      '  KOLTIME,'
      '  PTIMEENTER,'
      '  PTIMEEDIT,'
      '  PUSERENTER,'
      '  PUSEREDIT,'
      '  PISDELETE,'
      '  CONTOLTYPE'
      'from PodtemaUK '
      'where'
      '  IDPODTEMAUK = :IDPODTEMAUK')
    ModifySQL.Strings = (
      'update PodtemaUK'
      'set'
      '  IDPODTEMAUK = :IDPODTEMAUK,'
      '  IDTEMAUK = :IDTEMAUK,'
      '  KOLTIME = :KOLTIME,'
      '  PISDELETE = :PISDELETE,'
      '  PODTEMA = :PODTEMA,'
      '  PTIMEEDIT = :PTIMEEDIT,'
      '  PTIMEENTER = :PTIMEENTER,'
      '  PUSEREDIT = :PUSEREDIT,'
      '  PUSERENTER = :PUSERENTER,'
      '  CONTOLTYPE = :CONTOLTYPE'
      'where'
      '  IDPODTEMAUK = :OLD_IDPODTEMAUK')
    InsertSQL.Strings = (
      'insert into PodtemaUK'
      
        '  (IDPODTEMAUK, IDTEMAUK, KOLTIME, PISDELETE, PODTEMA, PTIMEEDIT' +
        ', PTIMEENTER, '
      '   PUSEREDIT, PUSERENTER,CONTOLTYPE)'
      'values'
      
        '  (:IDPODTEMAUK, :IDTEMAUK, :KOLTIME, :PISDELETE, :PODTEMA, :PTI' +
        'MEEDIT, '
      '   :PTIMEENTER, :PUSEREDIT, :PUSERENTER,:CONTOLTYPE)')
    DeleteSQL.Strings = (
      'delete from PodtemaUK'
      'where'
      '  IDPODTEMAUK = :OLD_IDPODTEMAUK')
    Left = 1000
    Top = 176
  end
  object dsElementp: TDataSource
    DataSet = qElementp
    Left = 280
    Top = 568
  end
  object qElementp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsPodtemaUK
    SQL.Strings = (
      'select e.*, case e.ecompl'
      '    when '#39'10'#39' then '#39'1'#39
      '    when '#39'01'#39' then '#39'2'#39
      '  end as eee, i.istochnik'
      'from elementp e'
      '    left join istochnik i on i.idistochnik = e.idistochnik'
      'where e.eisdelete is null and e.idpodtemauk = :idpodtemauk'
      'order by e.idelementp')
    UpdateObject = quElementp
    GeneratorField.Field = 'SDID'
    Left = 312
    Top = 568
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idpodtemauk'
        ParamType = ptUnknown
      end>
    object qElementpIDELEMENTP: TIntegerField
      FieldName = 'IDELEMENTP'
      Required = True
    end
    object qElementpIDPODTEMAUK: TIntegerField
      FieldName = 'IDPODTEMAUK'
      Origin = '"ELEMENTP"."IDPODTEMAUK"'
    end
    object qElementpELEMENTP: TIBStringField
      FieldName = 'ELEMENTP'
      Origin = '"ELEMENTP"."ELEMENTP"'
      Size = 255
    end
    object qElementpECOMPL: TIBStringField
      FieldName = 'ECOMPL'
      Origin = '"ELEMENTP"."ECOMPL"'
      Size = 5
    end
    object qElementpIDISTOCHNIK: TIntegerField
      FieldName = 'IDISTOCHNIK'
      Origin = '"ELEMENTP"."IDISTOCHNIK"'
    end
    object qElementpPAGEIN: TIBStringField
      FieldName = 'PAGEIN'
      Origin = '"ELEMENTP"."PAGEIN"'
      Size = 80
    end
    object qElementpECONTROL: TIntegerField
      FieldName = 'ECONTROL'
      Origin = '"ELEMENTP"."ECONTROL"'
    end
    object qElementpECOMMENT: TIBStringField
      FieldName = 'ECOMMENT'
      Origin = '"ELEMENTP"."ECOMMENT"'
      Size = 255
    end
    object qElementpETIMEENTER: TDateTimeField
      FieldName = 'ETIMEENTER'
      Origin = '"ELEMENTP"."ETIMEENTER"'
    end
    object qElementpETIMEEDIT: TDateTimeField
      FieldName = 'ETIMEEDIT'
      Origin = '"ELEMENTP"."ETIMEEDIT"'
    end
    object qElementpEUSERENTER: TIBStringField
      FieldName = 'EUSERENTER'
      Origin = '"ELEMENTP"."EUSERENTER"'
      Size = 80
    end
    object qElementpEUSEREDIT: TIBStringField
      FieldName = 'EUSEREDIT'
      Origin = '"ELEMENTP"."EUSEREDIT"'
      Size = 80
    end
    object qElementpEISDELETE: TIntegerField
      FieldName = 'EISDELETE'
      Origin = '"ELEMENTP"."EISDELETE"'
    end
    object qElementpISTOCHNIK: TIBStringField
      FieldName = 'ISTOCHNIK'
      Origin = '"ISTOCHNIK"."ISTOCHNIK"'
      Size = 255
    end
    object qElementpELEMENTP_ENG: TIBStringField
      FieldName = 'ELEMENTP_ENG'
      Origin = '"ELEMENTP"."ELEMENTP_ENG"'
      Size = 255
    end
    object qElementpECOMMENT_ENG: TIBStringField
      FieldName = 'ECOMMENT_ENG'
      Origin = '"ELEMENTP"."ECOMMENT_ENG"'
      Size = 255
    end
    object qElementpEEE: TIBStringField
      FieldName = 'EEE'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
  end
  object quElementp: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDELEMENTP,'
      '  IDPODTEMAUK,'
      '  ELEMENTP,'
      '  ECOMPL,'
      '  IDISTOCHNIK,'
      '  PAGEIN,'
      '  ECONTROL,'
      '  ECOMMENT,'
      '  ETIMEENTER,'
      '  ETIMEEDIT,'
      '  EUSERENTER,'
      '  EUSEREDIT,'
      '  EISDELETE,'
      '  ELEMENTP_ENG,'
      '  ECOMMENT_ENG,'
      '  EEE,'
      '  ISTOCHNIK'
      'from elementp '
      'where'
      '  IDELEMENTP = :IDELEMENTP')
    ModifySQL.Strings = (
      'update elementp'
      'set'
      '  ECOMMENT = :ECOMMENT,'
      '  ECOMMENT_ENG = :ECOMMENT_ENG,'
      '  ECOMPL = :ECOMPL,'
      '  ECONTROL = :ECONTROL,'
      '  EEE = :EEE,'
      '  EISDELETE = :EISDELETE,'
      '  ELEMENTP = :ELEMENTP,'
      '  ELEMENTP_ENG = :ELEMENTP_ENG,'
      '  ETIMEEDIT = :ETIMEEDIT,'
      '  ETIMEENTER = :ETIMEENTER,'
      '  EUSEREDIT = :EUSEREDIT,'
      '  EUSERENTER = :EUSERENTER,'
      '  IDELEMENTP = :IDELEMENTP,'
      '  IDISTOCHNIK = :IDISTOCHNIK,'
      '  IDPODTEMAUK = :IDPODTEMAUK,'
      '  ISTOCHNIK = :ISTOCHNIK,'
      '  PAGEIN = :PAGEIN'
      'where'
      '  IDELEMENTP = :OLD_IDELEMENTP')
    InsertSQL.Strings = (
      'insert into elementp'
      
        '  (ECOMMENT, ECOMMENT_ENG, ECOMPL, ECONTROL, EEE, EISDELETE, ELE' +
        'MENTP, '
      
        '   ELEMENTP_ENG, ETIMEEDIT, ETIMEENTER, EUSEREDIT, EUSERENTER, I' +
        'DELEMENTP, '
      '   IDISTOCHNIK, IDPODTEMAUK, ISTOCHNIK, PAGEIN)'
      'values'
      
        '  (:ECOMMENT, :ECOMMENT_ENG, :ECOMPL, :ECONTROL, :EEE, :EISDELET' +
        'E, :ELEMENTP, '
      
        '   :ELEMENTP_ENG, :ETIMEEDIT, :ETIMEENTER, :EUSEREDIT, :EUSERENT' +
        'ER, :IDELEMENTP, '
      '   :IDISTOCHNIK, :IDPODTEMAUK, :ISTOCHNIK, :PAGEIN)')
    DeleteSQL.Strings = (
      'delete from elementp'
      'where'
      '  IDELEMENTP = :OLD_IDELEMENTP')
    Left = 344
    Top = 568
  end
  object dsLearntask: TDataSource
    DataSet = qLearntask
    Left = 696
    Top = 560
  end
  object qLearntask: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsElementp
    SQL.Strings = (
      'select l.*,case l.typetask'
      '    when '#39'10'#39' then '#39#1047#1053#1040#1058#1068#39
      '    when '#39'01'#39' then '#39#1059#1052#1045#1058#1068#39
      '  end as zn,'
      '  case l.lcompl'
      '    when '#39'10'#39' then '#39'1'#39
      '    when '#39'01'#39' then '#39'2'#39
      '  end as eee'
      'from learntask l'
      'where l.lisdelete is null and l.idelementp=:idelementp'
      'order by l.idlearntask')
    UpdateObject = quLearntask
    GeneratorField.Field = 'SDID'
    Left = 728
    Top = 560
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idelementp'
        ParamType = ptUnknown
      end>
    object qLearntaskIDLEARNTASK: TIntegerField
      FieldName = 'IDLEARNTASK'
      Origin = '"LEARNTASK"."IDLEARNTASK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qLearntaskIDELEMENTP: TIntegerField
      FieldName = 'IDELEMENTP'
      Origin = '"LEARNTASK"."IDELEMENTP"'
    end
    object qLearntaskTYPETASK: TIBStringField
      FieldName = 'TYPETASK'
      Origin = '"LEARNTASK"."TYPETASK"'
      Size = 5
    end
    object qLearntaskLEARNTASK: TIBStringField
      FieldName = 'LEARNTASK'
      Origin = '"LEARNTASK"."LEARNTASK"'
      Size = 255
    end
    object qLearntaskLEARNTASK_ENG: TIBStringField
      FieldName = 'LEARNTASK_ENG'
      Origin = '"LEARNTASK"."LEARNTASK_ENG"'
      Size = 255
    end
    object qLearntaskLCOMPL: TIBStringField
      FieldName = 'LCOMPL'
      Origin = '"LEARNTASK"."LCOMPL"'
      Size = 5
    end
    object qLearntaskLCONTROL: TIntegerField
      FieldName = 'LCONTROL'
      Origin = '"LEARNTASK"."LCONTROL"'
    end
    object qLearntaskLCOMMENT: TIBStringField
      FieldName = 'LCOMMENT'
      Origin = '"LEARNTASK"."LCOMMENT"'
      Size = 255
    end
    object qLearntaskLCOMMENT_ENG: TIBStringField
      FieldName = 'LCOMMENT_ENG'
      Origin = '"LEARNTASK"."LCOMMENT_ENG"'
      Size = 255
    end
    object qLearntaskLTIMEENTER: TDateTimeField
      FieldName = 'LTIMEENTER'
      Origin = '"LEARNTASK"."LTIMEENTER"'
    end
    object qLearntaskLTIMEEDIT: TDateTimeField
      FieldName = 'LTIMEEDIT'
      Origin = '"LEARNTASK"."LTIMEEDIT"'
    end
    object qLearntaskLUSERENTER: TIBStringField
      FieldName = 'LUSERENTER'
      Origin = '"LEARNTASK"."LUSERENTER"'
      Size = 80
    end
    object qLearntaskLUSEREDIT: TIBStringField
      FieldName = 'LUSEREDIT'
      Origin = '"LEARNTASK"."LUSEREDIT"'
      Size = 80
    end
    object qLearntaskLISDELETE: TIntegerField
      FieldName = 'LISDELETE'
      Origin = '"LEARNTASK"."LISDELETE"'
    end
    object qLearntaskZN: TIBStringField
      FieldName = 'ZN'
      ProviderFlags = []
      FixedChar = True
      Size = 5
    end
    object qLearntaskEEE: TIBStringField
      FieldName = 'EEE'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
  end
  object quLearntask: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDLEARNTASK,'
      '  IDELEMENTP,'
      '  TYPETASK,'
      '  LEARNTASK,'
      '  LEARNTASK_ENG,'
      '  LCOMPL,'
      '  LCONTROL,'
      '  LCOMMENT,'
      '  LCOMMENT_ENG,'
      '  LTIMEENTER,'
      '  LTIMEEDIT,'
      '  LUSERENTER,'
      '  LUSEREDIT,'
      '  LISDELETE,'
      '  ZN,'
      '  EEE'
      'from learntask '
      'where'
      '  IDLEARNTASK = :IDLEARNTASK')
    ModifySQL.Strings = (
      'update learntask'
      'set'
      '  EEE = :EEE,'
      '  IDELEMENTP = :IDELEMENTP,'
      '  IDLEARNTASK = :IDLEARNTASK,'
      '  LCOMMENT = :LCOMMENT,'
      '  LCOMMENT_ENG = :LCOMMENT_ENG,'
      '  LCOMPL = :LCOMPL,'
      '  LCONTROL = :LCONTROL,'
      '  LEARNTASK = :LEARNTASK,'
      '  LEARNTASK_ENG = :LEARNTASK_ENG,'
      '  LISDELETE = :LISDELETE,'
      '  LTIMEEDIT = :LTIMEEDIT,'
      '  LTIMEENTER = :LTIMEENTER,'
      '  LUSEREDIT = :LUSEREDIT,'
      '  LUSERENTER = :LUSERENTER,'
      '  TYPETASK = :TYPETASK,'
      '  ZN = :ZN'
      'where'
      '  IDLEARNTASK = :OLD_IDLEARNTASK')
    InsertSQL.Strings = (
      'insert into learntask'
      
        '  (EEE, IDELEMENTP, IDLEARNTASK, LCOMMENT, LCOMMENT_ENG, LCOMPL,' +
        ' LCONTROL, '
      
        '   LEARNTASK, LEARNTASK_ENG, LISDELETE, LTIMEEDIT, LTIMEENTER, L' +
        'USEREDIT, '
      '   LUSERENTER, TYPETASK, ZN)'
      'values'
      
        '  (:EEE, :IDELEMENTP, :IDLEARNTASK, :LCOMMENT, :LCOMMENT_ENG, :L' +
        'COMPL, '
      
        '   :LCONTROL, :LEARNTASK, :LEARNTASK_ENG, :LISDELETE, :LTIMEEDIT' +
        ', :LTIMEENTER, '
      '   :LUSEREDIT, :LUSERENTER, :TYPETASK, :ZN)')
    DeleteSQL.Strings = (
      'delete from learntask'
      'where'
      '  IDLEARNTASK = :OLD_IDLEARNTASK')
    Left = 760
    Top = 560
  end
end
